home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
asmutil
/
disasm.zip
/
SPEEDUP.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-06-03
|
387b
|
22 lines
10 FOR I = 1 TO 37
11 READ N
12 C = C + N
15 NEXT
16 READ N
17 IF N <> C THEN 40
20 RESTORE
21 OPEN "R",1,"SPEEDUP.COM",1
25 FIELD 1 , 1 AS N$
26 FOR I = 1 TO 37
30 READ N
31 LSET N$ = CHR$(N)
32 PUT 1
35 NEXT
36 CLOSE
37 PRINT "created"
38 END
40 PRINT "** error. Verify DATA"
41 END
45 DATA 186,18,0,184,30,37,205,33,139
50 DATA 250,190,26,1,185,